home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / emacs16d.zip / _COMPILE.MIN < prev    next >
Text File  |  1991-08-13  |  3KB  |  152 lines
  1.  
  2.  
  3.  
  4. Name:F:compile
  5. Run MAKE on makefile.
  6. [*]#(Fbuffer-has-fn,(
  7.     #(ds,compile-old,##(lv,cd))
  8.     #(ds,compile-dir,#(Fonly-path,#(Fbuffer-fn)))
  9. ))
  10. #(ds,value,make)
  11. #(Freadline,Compile command: ,(
  12.     #(ds,compile-command,##(value))
  13.     #(F:save-some-buffers)
  14.     #(Ffind-or-make-buffer,*compilation*)
  15.     #(n?,compile-dir,(
  16.         #(sv,cd,##(compile-dir))
  17.     ))
  18.     #(ex,#(env.COMSPEC),#(env.SWITCHAR)c ##(compile-command),,\pipe_out,\pipe_out)
  19.     #(rf,\pipe_out)
  20.     #(de,\pipe_out)
  21.     #(ds,error-buffer,##(ba,-1))
  22.     #(es,error-handler)
  23.     #(ds,k,##(gs,Fredisplay-two))
  24.     #(sv,ow,##(ba,-1))
  25.     #(sp,[)
  26.     #(Fmode-line)
  27.     #(..,##(ba,##(old-buffer)))
  28.     #(Fenter-local-modes)
  29. ))
  30. #(n?,compile-old,(
  31.     #(sv,cd,##(compile-old))
  32. ))
  33. #(es,compile-dir,compile-old,compile-command)
  34. [*]
  35.  
  36.  
  37. Name:F:next-error
  38. Parse error messages from Turbo-C, MS-Masm and MS-C.
  39. [*]#(Fparse-error-search,],>)[*]
  40.  
  41.  
  42. Name:F:parse-error
  43. [*][*]
  44.  
  45.  
  46. Name:F:parse-error-previous
  47. [*][*]
  48.  
  49.  
  50. Name:F:previous-error
  51. Search backwards for the previous error.
  52. [*]#(Fparse-error-search,[,<)[*]
  53.  
  54.  
  55. Name:Fparse-error-borland
  56. Parse the current borland-style (well, TC at least) error.
  57. [*]#(==,#(Fparse-error-borland-do,arg1,arg2),Yes,(
  58.     #(Fparse-error-do,
  59.         #(pm,3)
  60.         #(lp, )
  61.         #(l?,.,$,,1)
  62.         #(l?,1,$,2)
  63.         #(sp,1)
  64.         ##(rm,2)
  65.     ,
  66.         #(sp,2>)
  67.         #(lp,:)
  68.         #(l?,.,$,2)
  69.         ##(rm,2)
  70.     ,
  71.         #(sp,^)
  72.         #(lp, )
  73.         #(l?,.,$,2)
  74.         ##(rm,2)
  75.  
  76.         #(lp,:)
  77.         #(l?,.,$,2)
  78.  
  79.         #(sp,2)
  80.         ##(rm,$)
  81.         #(Fmodeline)
  82.         #(pm)
  83.     )
  84. ),(
  85.     #(..,##(ba,##(old-buffer)))
  86.     #(Fmessage,No more errors.)
  87. ))[*]
  88.  
  89.  
  90. Name:Fparse-error-borland-do
  91. [*]#(ds,temp,##(rm,$))
  92. #(ds,temp,##(fm,temp, ))
  93. #(==,##(temp),Warning,Yes,(
  94.     #(==,##(temp),Error,Yes,(
  95.         #(==,##(rc,arg1),0,No,(
  96.             ##(sp,arg2)
  97.             #(SELF,arg1,arg2)
  98.         ))
  99.     ))
  100. ))[*]
  101.  
  102.  
  103. Name:Fparse-error-do
  104. Find the source file arg1, go to line arg2 of it, and announce the error arg3.
  105. [*]#(F:find-file,arg1)
  106. #(sv,cl,arg2)
  107. #(an,(arg3))
  108. [*]
  109.  
  110.  
  111. Name:Fparse-error-ms
  112. Obsolete MINT code replaced. (tho, Sat Oct 14 19:12:48 1989)
  113. [*]#(pm,3)
  114. #(lp,..*\...*##(bc,40,d,a)[0-9][0-9]*##(bc,41,d,a),,R)
  115. #(l?,.,arg1,0,1,(
  116.     #(Fparse-error-do,
  117.         #(sp,0)
  118.         #(lp,##(bc,40,d,a))
  119.         #(l?,.,$,2,0)
  120.         ##(rm,2)
  121.     ,
  122.         #(sp,2>)
  123.         ##(rm,1)
  124.     ,
  125.         #(sp,1>)
  126.         ##(rm,$)
  127.         #(Fmodeline)
  128.         #(pm)
  129.     )
  130. ),(
  131.     #(pm)
  132.     #(..,##(ba,##(old-buffer)))
  133.     #(Fmessage,No more errors.)
  134. ))[*]
  135.  
  136.  
  137. Name:Fparse-error-search
  138. Slightly changed. (tho, Sat Oct 14 19:13:23 1989)
  139. [*]#(g?,##(error-buffer),0,(
  140.     #(ds,old-buffer,##(ba,-1))
  141.     #(..,##(ba,##(error-buffer),a))
  142.     #(n?,error-handler,,(
  143.         #(sp,[)
  144.         #(lp,Borland)
  145.         #(l?,[,],,,(
  146.             #(ds,error-handler,Fparse-error-borland)
  147.         ),(
  148.             #(ds,error-handler,Fparse-error-ms)
  149.         ))
  150.     ))
  151.     #(#(error-handler),arg1,arg2)
  152. ))[*]